home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / cnet / wof_cnet_641.lha / wof / WOF_Install.Rexx3 < prev    next >
Text File  |  1995-08-07  |  901b  |  27 lines
  1. /* Convert v6.40 to v6.41 Script; Used by Installer */
  2. options results
  3.  
  4. call open(f1,"pfiles:WoFortune.Config","r")
  5.   do 3;dfile=readln(f1);end
  6.   do i=1 to 10;co.i=readln(f1);end i
  7. call close(f1)
  8.  
  9. address command 'setenv WOFPath "'strip(dfile)'"'
  10. address command "delete "dfile"Graphics/#? all"
  11. address command "delete "dfile"Game.A*"
  12. address command "delete "dfile"Game.I*"
  13. address command "delete "dfile"Docs.A*"
  14. address command "delete "dfile"Docs.I*"
  15. address command "delete "dfile"Log.*"
  16. address command "delete "dfile"GameData"
  17.  
  18. if exists(dfile"Reg.Key") then
  19.   address command "rename "dfile"PuzData "dfile"PuzData2000"
  20.  
  21. call open(f1,"pfiles:WoFortune.Config","w")
  22.   call writeln(f1,"; v6.41 August 6, 1995")
  23.   call writeln(f1,";                               WOF CONFIG FILE, Supports ALL THREE Modules!")
  24.   call writeln(f1,dfile)
  25.   do i=1 to 10 ; call writeln(f1,co.i) ; end i
  26. call close(f1)
  27.